home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSDNAM.for < prev    next >
Text File  |  1991-04-13  |  579b  |  20 lines
  1.         SUBROUTINE GSDNAM(IDEV,BNAME)
  2.         IMPLICIT NONE
  3.         CHARACTER*1 BNAME(40)
  4. C
  5. C       THIS SUBROUTINE RETURNS THE DEVICE NAME OF THE SPECIFIED DEVICE
  6. C       *********** DEVICE NAMES ARE LIMITED TO 39 CHARACTERS **********
  7. C
  8. C
  9.         INTEGER IDEV,MAXDEV
  10.         DATA MAXDEV /2/
  11. C
  12.         BNAME(1) = CHAR(0)
  13.         IF ((IDEV .LE. 0) .OR. (IDEV .GT. MAXDEV)) RETURN
  14.         GO TO (100,200) IDEV
  15. 100     CALL SCOPY('13" Monitor - Laced, 16 colors'//CHAR(0),BNAME)
  16.     GOTO 1000
  17. 200    CALL SCOPY('12" Monitor - Laced, 16 colors'//CHAR(0),BNAME)
  18. 1000    RETURN
  19.         END
  20.